5 GOSUB60100:CLR 10 POKE 53280,0:POKE 53281,0:PRINT"" 20 REM BBS LISTER 30 REM BY TED LEWIS 40 REM ----MAIN MENU---- 50 CLR:DIM FILE$(360,1):PRINT CHR$(14)CHR$(8) 60 T1$="[158][192][192][192] ":T2$=" [158][192][192][192]" 70 PRINT"[147][194][194][211] [204]ISTER"SPC(21)"[212]ED [204]EWIS" 80 PRINT"[158][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]" 90 PRINTTAB(15)"[205]AIN [205]ENU" 100 PRINTTAB(6)"1 - [195]REATE A NEW FILE" 110 PRINTTAB(6)"2 - [215]ORK ON AN OLD FILE" 120 PRINTTAB(6)"3 - [209]UIT" 130 PRINTTAB(10)"[195]HOICE? " 140 GET GE$ 150 IF GE$="1" THEN1080 160 IF GE$="2" THEN210 170 IF GE$="3" THEN60000 180 GOSUB1960 190 GOTO140 200 REM ----OLD FILE MENU---- 210 PRINT"[147]":PRINTTAB(10)T1$"[207]LD [198]ILE [205]ENU"T2$ 220 PRINTTAB(4)"1 - [197]DIT [198]ILE" 230 PRINTTAB(4)"2 - [208]RINT [198]ILE" 240 PRINTTAB(4)"3 - [205]AIN [205]ENU" 250 PRINTTAB(8)"[195]HOICE?" 260 GET GE$ 270 IF GE$="1" THEN330 280 IF GE$="2" THEN1580 290 IF GE$="3" THEN50 300 GOSUB1960 310 GOTO260 320 REM ----EDIT OLD FILE---- 330 PRINT"[147]":PRINTTAB(12)T1$"[197]DIT [198]ILE"T2$ 340 PRINTTAB(4)"[197]NTER FILE NAME:":SO=16:GOSUB2290:NAME$=WD$ 350 OPEN 1,8,4,"0:"+NAME$+",S,R" 360 DCT=1:X=1:GOSUB2020 370 IF ERR=1 THENCLOSE1:ERR=0:GOTO330 380 PRINTTAB(4)"[215]ORKING..." 390 INPUT#1,IN$ 400 FILE$(X,0)=IN$ 410 IF ST AND 64 THENCLOSE1:CLOSE15:L=1:CT=1:GOTO450 420 X=X+1 430 GOTO390 440 REM ----SCREEN PRINT ROUTINE---- 450 PRINT"[147]":PRINTTAB(12)T1$"[197]DIT [198]ILE "T2$ 460 PRINTTAB(8)"[204]ISTING "L"OUT OF "X/9"" 470 IF CHA THENPRINT"[147]":PRINTTAB(11)T1$"[195]HANGE [196]ATA"T2$"" 480 IF FILE$(CT,1)="D" THENPRINT "[158][196][197][204][197][212][197][196][146]" 490 PRINTTAB(4)Q1" - "FILE$(CT+Q1,0) 500 IF INT((CT+Q1)/9)=(CT+Q1)/9 THEN530 510 Q1=Q1+1 520 GOTO490 530 PRINTTAB(4)"[195]HANGE? (# OF ENTRY/A[146]LL"; 540 IFCHATHENPRINT"/N[146]O)":GOTO580 550 PRINT")":PRINTTAB(12)"(D[146]ELETE/U[146]NDELETE)" 560 PRINTTAB(12)"(+[146] NEXT/-[146] PREVIOUS) 570 [153][163]12)"LEFT$IT \WAIT IF FINISHED." 580 [161] GE$ 590 [139] GE$[178]"N" [175] CHA [167]Q1[178]0:CHA[178]0:[137]1420 600 [139] GE$[178]"+"[175]CHA[178]0[167]Q1[178]0:[137]700 610 [139] GE$[178]"-"[175] CHA[178]0 [167]Q1[178]0:[137]720 620 [139] GE$[178]"D"[175] CHA[178]0 [167]EDT[178]1:Q1[178]0:[137]870 630 [139] GE$[178]"U" [175] CHA[178]0 [167]Q1[178]0:[137]890 640 [139] GE$[178]"RESTORE" [167][160]1:[137]50 650 [139] GE$[178]"\" [175] CHA[178]0 [167]Q1[178]0:[137]780 660 [139] GE$[178]"A" [167]ALL[178]1:EDT[178]1:CA[178]1:[137]1150 670 [139] GE$[178]""[167]580 680 [139] [198](GE$)[177]47 [175] [198](GE$)[179]57 [167]740 690 [137]580 700 L[178]L[170]1:[139] L[177]X[173]9 [167]L[178]1:CT[178]1:[137]450 710 CT[178]CT[170]9:[137]450 720 L[178]L[171]1:[139] L[179]1 [167]L[178]X[173]9:CT[178]X[171]8:[137]450 730 CT[178]CT[171]9:[137]450 740 EDT[178]1:CA[178]1:[145] ([197](GE$)[170]1)[137]1150,1230,1250,1270,1280,1290,1310,1320,1330 750 CA[178]0:Q1[178]0:[139] CHA [167][153]"LOAD":[137]470 760 [137]450 770 [143] ----APPEND SEQ FILE---- 780 [153]"LOAD":[153][163]11)T1$"ATNPPEND ASCILE"T2$ 790 [153][163]4)"STR$O YOU WANT TO ADD ANY MORE TO THIS FILE? (Y/N)" 800 [161] GE$ 810 [139] GE$[178]"N" [167]920 820 [139] GE$[178]"Y" [167]EDT[178]1:[137]850 830 [139] GE$[178]"RESTORE" [167]50 840 [137]800 850 APP[178]1:X[178]X[170]9:CT[178]X[171]8:[137]1130 860 [143] ----DELETE---- 870 [139] CT[178]0 [167]FILE$(1,1)[178]"D":[137]700 880 FILE$(CT,1)[178]"D":[137]700 890 [139] CT[178]0 [167]FILE$(1,1)[178]"":[137]700 900 FILE$(CT,1)[178]"":[137]700 910 [143] ----WRITE ARRAY TO SEQ FILE---- 920 [139] EDT[178]0 [167]1040 930 [153]"LOAD":[153][163]7)T1$"(null)EWRITE STR$ATA ASCILE"T2$ 940 [153][163]4)"RIGHT$NSERT CORRECT DISK AND PRESS ANY KEY TO CONTINUE." 950 [161] GE$:[139] GE$[178]"RESTORE"[167]50 960 [139] GE$[178]""[167]950 970 [159] 15,8,15,"S 0:"[170]NAME$[170]"" 980 [160]15:[159] 1,8,4,"0:"[170]NAME$[170]",S,W" 990 [141]2020:[139] ERR[178]1 [167][160]1:ERR[178]0:[137]920 1000 [129] FR[178]1 [164] X 1010 [139] FILE$(FR,1)[178]"D" [167]FR[178]FR[170]8:[137]1030 1020 [152]1,FILE$(FR,0) 1030 [130] FR 1040 [160]1:[160]15:[153][163]4)"STR$ONE. (null)RESS ANY KEY FOR (null)AIN (null)ENU." 1050 [161] GE$:[139] GE$[178]""[167]1050 1060 [137]50 1070 [143] ----CREATE NEW INFO FILE---- 1080 CT[178]1:[153]"LOAD":[153][163]9)T1$"LENREATE (null)EW ASCILE"T2$ 1090 [153][163]4)"VALNTER NEW FILE NAME:":SO[178]16:[141]2290:NAME$[178]WD$ 1100 [159] 1,8,4,"0:"[170]NAME$[170]",S,W" 1110 [141]2020 1120 CT[178]1:[139] ERR[178]1 [167][160]1:ERR[178]0:[137]1080 1130 [153]"LOAD(null)UMBER OF ENTRIES: ";ENT 1140 [153][163]9)T1$"VALNTER (null)EW STR$ATA"T2$ 1150 [153][163]4)"VALNTER PEEKPEEK(null) NAME"; 1160 [139] CA[178]0 [167][153]" (OR (null)VAL(null)(null)(null)(null)WAIT):" 1170 [139] CHA [176] CA [167][153]":" 1180 SO[178]28:[141]2290:FILE$(CT,0)[178]WD$ 1190 [139] ALL [167]CA[178]0:[137]1230 1200 [139] CA [167]750 1210 [139] FILE$(CT,0)[178]" " [175] APP[178]1 [167]APP[178]0:CT[178]CT[171]9:X[178]X[171]9:[137]780 1220 [139] FILE$(CT,0)[178]" "[167][160]1:[160]15:[137]1480 1230 [153][163]4)"VALNTER PEEKPEEK(null) (null)UMBER:":SO[178]30:[141]2290:FILE$(CT[170]1,0)[178]WD$ 1240 [139] CA [167]750 1250 [153][163]4)"VALNTER (null)SER (null)AME:":SO[178]27:[141]2290:FILE$(CT[170]2,0)[178]WD$ 1260 [139] CA [167]750 1270 [153][163]4)"VALNTER (null)ASSWORD:":SO[178]28:[141]2290:FILE$(CT[170]3,0)[178]WD$:[139]CA[167]750 1280 [153][163]4)"VALNTER (null)SER RIGHT$STR$:":SO[178]29:[141]2290:FILE$(CT[170]4,0)[178]WD$:[139] CA[167]750 1290 [153][163]4)"VALNTER PEEKPEEK(null) (null)YSOP (null)AME:":SO[178]26:[141]2290:FILE$(CT[170]5,0)[178]WD$ 1300 [139] CA [167]750 1310 [153][163]4)"VALNTER PEEKPEEK(null) LEFT$OURS:":SO[178]31:[141]2290:FILE$(CT[170]6,0)[178]WD$ 1315 [139] CA [167]750 1320 [153][163]4)"VALNTER PEEKPEEK(null) PEEKAUD:":SO[178]31:[141]2290:FILE$(CT[170]7,0)[178]WD$:[139]CA[167]750 1330 [153][163]4)"VALNTER PEEKPEEK(null) STR$ISTANCE:":SO[178]29:[141]2290:FILE$(CT[170]8,0)[178]WD$ 1340 [139] CA [167]750 1350 [139] ALL [167]ALL[178]0:[137]750 1360 [153] "RIGHT$S EVERYTHING (null)(null)? [(null)/(null)]" 1370 [161] GE$ 1380 [139] GE$[178]"Y"[167]1420 1390 [139] GE$[178]"N"[167]CHA[178]1:[137]470 1400 [139] GE$[178]"RESTORE"[167][160]1:[137]50 1410 [137]1370 1420 [139] APP[178]1 [167]APP[178]0:ENT[178]ENT[170]1:CHA[178]0:[137]780 1430 [152]1,FILE$(CT,0)[170][199](13)[170]FILE$(CT[170]1,0)[170][199](13)[170]FILE$(CT[170]2,0) 1440 [152]1,FILE$(CT[170]3,0)[170][199](13)[170]FILE$(CT[170]4,0)[170][199](13)[170]FILE$(CT[170]5,0) 1450 [152]1,FILE$(CT[170]6,0)[170][199](13)[170]FILE$(CT[170]7,0)[170][199](13)[170]FILE$(CT[170]8,0) 1460 ENT[178]ENT[170]1:[137]1130 1470 [143]----PRINT FILE MENU---- 1480 [153]"LOAD":[153][163]9)T1$"(null)RINT ASCILE (null)ENU"T2$ 1490 [153][163]4)"1 - (null)RINT ASCILE" 1500 [153][163]4)"2 - (null)AIN (null)ENU" 1510 [153][163]8)"LENHOICE?" 1520 [161] GE$ 1530 [139] GE$[178]"1" [167]PRT[178]1:[137]1580 1540 [139] GE$[178]"2" [167]50 1550 [141]1960 1560 [137]1520 1570 [143]----PRINT FILE---- 1580 [153]"LOAD":[153][163]11)T1$"(null)RINT ASCILE"T2$ 1590 [139] PRT [167]N1$[178]NAME$:[137]1610 1600 [153][163]4)"VALNTER FILE NAME:":SO[178]16:[141]2290:N1$[178]WD$ 1610 [159] 1,8,4,"0:"[170]N1$[170]",S,R" 1620 [141]2020 1630 [139] ERR [167]ERR[178]0:[160]1:[137]1580 1640 [153][163]4)"VALNTER HEADER:":SO[178]30:[141]2290:HEAD$[178]WD$ 1650 [153][163]4)"ATNRE YOU USING FANFOLD OR SINGLE SHEET PAPER? (F/S)" 1660 [161] GE$:[139] GE$[178]"RESTORE"[167][160]1:[137]50 1670 [139] GE$[178]"F"[167]FAN[178]0:[137]1700 1680 [139] GE$[178]"S"[167]FAN[178]1:[137]1700 1690 [137]1660 1700 [153][163]4)"(null)INE UP PAPER AND PRESS ANY KEY.":PAGE[178]1 1710 [161] GE$:[139] GE$[178]""[167]1710 1740 [159] 4,4,7 1750 [152]4," PEEKPEEK(null) (null)ISTER : "HEAD$ 1760 [152]4," (null)AGE: ";PAGE 1780 [141]2180 1810 COUNT[178]1 1820 [132]1,A$,B$,C$,D$,E$,F$,G$,H$,I$ 1830 [139] ST [175] 64 [167]CL[178]1 1840 [152]4,"(null)PEEKPEEK(null) (null)AME: ";A$;[166]28[171][195](A$));"(null)" 1850 [152]4,"(null)(null)UMBER: ";B$;[166]30[171][195](B$));"(null)" 1860 [152]4,"(null)(null)SER (null)AME: ";C$;[166]27[171][195](C$));"(null)" 1870 [152]4,"(null)(null)ASSWORD: ";D$;[166]28[171][195](D$));"(null)" 1882 [152]4,"(null)(null)YSOP (null)AME: ";F$;[166]26[171][195](F$));"(null)" 1884 [152]4,"(null)LEFT$OURS: ";G$;[166]31[171][195](G$));"(null)" 1886 [152]4,"(null)PEEKAUD: ";H$;[166]32[171][195](H$));"(null)" 1888 [152]4,"(null)STR$ISTANCE: ";I$;[166]28[171][195](I$));"(null)" 1889 [139] CL[178]1 [167] [141] 2200:[160]4:[160]1:[137] 50 1890 [141]2200 1910 [139] COUNT[179][177]5 [167][152]4:[141]2180 1920 COUNT[178]COUNT[170]1:[139] COUNT[178]6 [167][137]2230 1930 [161] GE$:[139] GE$[178]"RESTORE"[167][160]1:[160]4:[137]50 1940 [137]1820 1950 [143] ----GET CURSER SUBROUTINE---- 1960 [129] FR[178]1[164]200:[130] FR 1970 [153][163]16)" ON WAIT" 1980 [129] FR[178]1[164]200:[130] FR 1990 [153][163]16)" ON " 2000 [142] 2010 [143] ----DISK ERROR SUBROUTINE---- 2020 [159] 15,8,15 2030 [132]15,E1,E1$,E2$,E3$ 2040 [139] E1[178]0[176]E1[178]1 [167][142] 2050 [153] "DEFVAL(null)(null)(null)(null)!!":[160]15 2060 [153][163]4)E1" "E1$" "E2$" "E3$ 2070 [139] E1[178]63 [167]2120 2080 [153][163]4)"(null)RESS ANY KEY." 2090 [161] GE$:[139] GE$[178]"RESTORE"[167][160]1:[137]50 2100 [139] GE$[178]""[167]2090 2110 ERR[178]1:[142] 2120 [153][163]4)"(null)EPLACE? (Y/N)" 2130 [161] GE$:[139] GE$[178]"Y"[167][160]1:[159] 1,8,4,"@ 0:"[170]NAME$[170]",S,W":[137]2020 2140 [139] GE$[178]"N" [167]ERR[178]1:[142] 2150 [139] GE$[178]"RESTORE"[167][160]1:[137]50 2160 [137]2130 2170 [143] ----PRINT DIVIDER SUBROUTINES---- 2180 [152]4,"OR--------------------------------------^":[142] 2200 [152]4,"/--------------------------------------EXP":[142] 2220 [143] ----PAPER ADVANCE SUBROUTINE---- 2230 [139]FAN[178]0[167][129]FR[178]1[164]10:[152]4:[130]:[137]2270 2240 [153][163]4)"(null)LEASE INSERT A NEW SHEET OF PAPER AND PRESS ANY KEY." 2250 [161] GE$:[139] GE$[178]"RESTORE"[167]50 2260 [139] GE$[178]""[167]2250 2270 PAGE[178]PAGE[170]1:[137]1750 2280 [143] ----INPUT SEQUENCE---- 2290 [153][163]8)"SYS";:[129] FR[178]1[164] SO:[153]"USR";:[130]:[153]:[153][163]8)"ONON"; 2300 [153] " WAITCMD"; 2310 [161] GE$ 2320 [139] GE$[178][199](13) [167][153]" ":WD$[178]W1$:W1$[178]"":[137]2440 2330 [139] GE$[178][199](34) [167]GE$[178][199](39) 2340 [139] GE$[178][199](20) [175][185](0)[179][177]8 [167][137]2430 2350 [139] GE$[178][199](20) [167][137]2310 2360 [139] GE$[179][177]"" [167][139] [198](GE$)[179]32 [176] [198](GE$)[177]140[175][198](GE$)[179]161 [167][137]2310 2370 [139] GE$[178][199](129) [167]2310 2380 [139] GE$[178]"RESTORE" [167][160]1:[160]4:[137]50 2390 [139] [185](0)[178]7 [167][153]"  WAITCMD"; 2400 [139] GE$[178]""[167]2310 2410 [139] [185](0)[178]SO[170]8 [167]2310 2420 [153] GE$" WAITCMD";:W1$[178]W1$[170]GE$:[137]2310 2430 [153]GE$;" WAITCMD";:W1$[178][200](W1$,([195](W1$)[171]1)):[137]2310 2440 [139] WD$[178]""[167]WD$[178]" ":[142] 2450 [142] 60000 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15 60010 [139]ER[179][177]63[167][128] 60020 [147]"HELLO CONNECT",8 60100 [151]53280, 6:[151]53281, 1:[153]"LOADRETURN"; 60101 [153]"LOADSTARPRESENTS:" 60102 [153]"STOPxVERIFY WAITSTOPxBBSLISTERSTOPxVERIFY WAITSTOPx" 60103 [153]"USRVERIFY WAITSTOPUSRUSReee```fffffffff```eeeUSRUSRVERIFY WAITSTOPUSRUSRUSReVERIFY "; 60104 [153]" " 60105 [153]"STOPxVERIFY WAITSTOPxBYTHEODORELEWISSTOPxVERIFY WAITSTOPx" 60106 [153]"USRVERIFY WAITSTOPUSRUSReee```fffffffff```eeeUSRUSRVERIFY WAITSTOPUSRUSRUSReVERIFY "; 60107 [153]" " 60108 [153]"STOPxVERIFY WAITSTOPxCOPYRIGHT1988STOPxVERIFY WAITSTOPx" 60109 [153]"USRVERIFY WAITSTOPUSRUSReee```fffffffff```eeeUSRUSRVERIFY WAITSTOPUSRUSRUSReVERIFY "; 60110 [153]" " 60111 [153]"  " 60112 [153]"  " 60113 [153]"  " 60114 [153]"  " 60115 [153]"  " 60116 [153]"  " 60117 [153]" VERIFY  VERIFY  VERIFY  "; 60118 [153]" VERIFY  VERIFY  VERIFY  P"; 60119 [153]"RESS SPACE TO CONTINUE "; 60120 [153]" CMDSAVE " 60130 [139][194](203)[179][177]60[167]60130 60140 [142]